///////////////////////////////////////////////////
// Election Administration Polarization
// Over Time RD Table
///////////////////////////////////////////////////

gl path "~/Library/CloudStorage/GoogleDrive-danmckinleythompson@gmail.com/My Drive/ElecAdminPolarization/How_Partisan_Is_Local_Election_Admin_Replication"

* Bring in the presidential election analysis data
use "$path/analysis_data/rd_election_analysis_data.dta", clear
keep if office=="pres"


* Run separate regressions by year


* Spec 1, 2004
rdrobust r_oos_state_year_vs_dem rv if policy_year== 2004, vce(cluster election_id)
rdtab r_oos_state_year_vs_dem treat rv election_id if policy_year==2004, est_command("rdrobust") new("B") tau(0.02) alpha(0.05) onesided

* Spec 2, 2008
rdrobust r_oos_state_year_vs_dem rv if policy_year==2008, vce(cluster election_id)
rdtab r_oos_state_year_vs_dem treat rv election_id if policy_year==2008, est_command("rdrobust") old("B") tau(0.02) alpha(0.05) onesided

* Spec 3, 2012
rdrobust r_oos_state_year_vs_dem rv if policy_year==2012, vce(cluster election_id)
rdtab r_oos_state_year_vs_dem treat rv election_id if policy_year==2012, est_command("rdrobust") old("B") tau(0.02) alpha(0.05) onesided

* Spec 4, 2016
rdrobust r_oos_state_year_vs_dem rv if policy_year==2016, vce(cluster election_id)
rdtab r_oos_state_year_vs_dem treat rv election_id if policy_year==2016, est_command("rdrobust") old("B") tau(0.02) alpha(0.05) onesided

* Spec 5, 2020
rdrobust r_oos_state_year_vs_dem rv if policy_year==2020, vce(cluster election_id)
rdtab r_oos_state_year_vs_dem treat rv election_id if policy_year==2020, est_command("rdrobust") old("B") tau(0.02) alpha(0.05) onesided



qui {
* Build the memo/paper table
cap log close
set linesize 255
log using "$path/output/rd_table_over_time.tex", text replace
noi di "\begin{table}[ht]"
noi di "\centering"
noi di "\caption{\textbf{Effect of Democratic Election Officials on Democratic Presidential Vote Share for Each Presidential Election.}"
noi di "\label{tab:rd_table_over_time}}"
noi di "\begin{tabular}{lccccc}"
noi di "\toprule \toprule"
noi di " & \multicolumn{5}{c}{Dem Pres Vote Share}\\"
noi di " & 2004 & 2008 & 2012 & 2016 & 2020 \\ "
noi di " & (1) & (2) & (3) & (4) & (5) \\"
noi di "\midrule"
noi di "Dem Elec Official & " %4.3f B[1,1] " & " %4.3f B[1,2] " & " %4.3f B[1,3] " & " %4.3f B[1,4] " & " %4.3f B[1,5] "\\"
noi di " & (" %4.3f B[2,1] ") & (" %4.3f B[2,2] ") & (" %4.3f B[2,3] ") & (" %4.3f B[2,4] ") & (" %4.3f B[2,5] ") \\[2mm]"
noi di "\midrule"
noi di "N & " %4.0f B[3,1] " & " %4.0f B[3,2] " & " %4.0f B[3,3] " & " %4.0f B[3,4] " & " %4.0f B[3,5] " \\ "
noi di "Bandwidth & " %4.2f B[5,1] " & " %4.2f B[5,2] " & " %4.2f B[5,3] " & " %4.2f B[5,4] " & " %4.2f B[5,5] " \\ "
noi di "BW Selection & CCT & CCT & CCT & CCT & CCT \\"
noi di "Kernel & Tri & Tri & Tri & Tri & Tri \\"
noi di "\bottomrule \bottomrule"
noi di "\multicolumn{6}{p{.68\textwidth}}{\footnotesize Robust standard errors in parentheses. "
noi di "The outcome is first regressed on a state- and year-specific lag using all counties including those for which clerk election "
noi di "results are not available. The regression discontinuity is estimated using the residuals from that regression. "
noi di "The bandwidth row reports the number of maximum clerk win margin allowed for inclusion in each specificaiton. "
noi di "CCT refers to \cite{calonico2014robust} bandwidth selection procedure. "
noi di "Tri means the specification uses a triangular kernel. }"
noi di "\end{tabular}"
noi di "\end{table}"
log off
}
